home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 June / 1994-06b.d64 / virus sim (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  179 b   |  9 lines
  1. 10 rem  virus simulator
  2. 20 rem  by s.bala gangadher rao
  3. 30 y=peek(646)
  4. 40 b=1024+rnd(1)*999:c=b+54272
  5. 50 x=peek(b):ifx=32then40
  6. 60 pokeb,32:b=b+40:c=c+40
  7. 70 ifb<2024thenpokeb,x:pokec,y:goto60
  8. 80 goto40
  9.